home *** CD-ROM | disk | FTP | other *** search
/ Pulp 2 / Pulp_02_1999_POL_de.d64 / a .CCCCCCCCCCCC. (.txt) next >
Commodore BASIC  |  2023-02-26  |  3KB  |  75 lines
  1. 0 poke53265,peek(53265)and239
  2. 1 dimw$(300):poke53281,0:poke53280,0:poke650,128:
  3. 2 fori=1to15:poke211,0:poke214,i:sys58640
  4. 3 print"[147][156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  5. 4 poke211,0:poke214,16:sys58640:print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  6. 5 goto10
  7. 7 poke53265,peek(53265)or16:return
  8. 10 forr=1to45:reada$:w$(r)=a$:next
  9. 11 poke211,0:poke214,17:sys58640:
  10. 12 print" [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201] ";:u$="mag"
  11. 13 print"[213][203][151]  <[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]>  [202][201]";
  12. 14 print"[194][155]    [176][195][195] [176][195][195][174] [176][174] [174] [195][195][178][195] [176][195][195][195][174] [195][174] [176][195]    [194]";
  13. 15 print"[194]    [194]   [194]  [194] [194][173][195][189]   [194]  [171][195][195][195][179]  [171][195][179]     [194]";
  14. 16 print"[194][155]    [173][195][195] [173][195][195][189] [173]      [173]  [173]   [189] [195][189] [173][195]    [194]";
  15. 17 print"[202][201][151]  <[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]>  [213][203]";
  16. 18 print" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]";:gosub7
  17. 20 x=0:y=-1
  18. 21 fori=1to15:poke211,1:poke214,i:sys58640:print"[154]"w$(x+i):next:goto22
  19. 22 geta$:
  20. 23 ifa$=chr$(13)then50
  21. 24 if a$="."andx<45thenx=x+15:goto21
  22. 25 if a$=","andx>0thenx=x-15:goto21
  23. 26 goto22
  24. 50 poke828,0:printchr$(147)chr$(17):print"[144]load"chr$(34)"m1*"chr$(34)",8"
  25. 51 printchr$(17)chr$(17)chr$(17)chr$(17)"run"
  26. 52 poke631,13:poke632,13:poke198,2
  27. 53 printchr$(19);:end
  28. 100 data"[158]> braindeath                          "
  29. 101 data"michael matern                        "
  30. 102 data"deutenhausener str. 7                 "
  31. 103 data"82362 weilheim                        "
  32. 104 data"tel. 0881 4179784                     "
  33. 105 data"                                      "
  34. 106 data"[158]> champ                               "
  35. 107 data"marc kayser                           "
  36. 108 data"wittekamp 9                           "
  37. 109 data"30177 hannover                        "
  38. 110 data"                                      "
  39. 111 data"[158]> diablo & punica                     "
  40. 112 data"sascha klemmstein/monika neubauer     "
  41. 113 data"glaschkestr. 11                       "
  42. 114 data"10365 berlin                          "
  43. 115 data"[158]> doc of desire                       "
  44. 116 data"stefan schauf                         "
  45. 117 data"istruper str. 65                      "
  46. 118 data"32825 blomberg                        "
  47. 119 data"tel. 0523597575                       "
  48. 120 data"                                      "
  49. 121 data"[158]> faayd                               "
  50. 122 data"andy frank                            "
  51. 123 data"pueschower str. 34                    "
  52. 124 data"18239 heiligenhagen                   "
  53. 125 data"                                      "
  54. 126 data"                                       "
  55. 127 data"                                      "
  56. 128 data"                                      "
  57. 129 data"                                       "
  58. 130 data"[158]> hammerman                           "
  59. 131 data"matthias kindervater                  "
  60. 132 data"wernerstrasse 51                      "
  61. 133 data"in 12621 berlin                       "
  62. 134 data"tel. 5628348                          "
  63. 135 data"                                       "
  64. 136 data"[158]> lost brain                         "
  65. 137 data"marcus hinzmann                       "
  66. 138 data"lehnestrasse 38                       "
  67. 139 data"in 12621 berlin                       "
  68. 140 data"tel. 030 56498321                     "
  69. 141 data"                                      "
  70. 142 data"                                      "
  71. 143 data"                                      "
  72. 144 data"                                      "
  73. 145 data"                                      "
  74. 0 
  75.